﻿
Imports std

Public Class sharedMemoryInt16
    Inherits sharedMemory(Of Int16, bytesInt16)

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String, ByVal v As bytesInt16)
        MyBase.New(host, port, name, v)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String, ByVal v As Int16)
        MyBase.New(host, port, name, v)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String)
        MyBase.New(host, port, name)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String, ByVal v As bytesInt16)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String, ByVal v As Int16)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String)
        MyBase.New(address, name)
    End Sub

    Public Sub New(ByVal address As String, ByVal name As String, ByVal v As bytesInt16)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As String, ByVal name As String)
        MyBase.New(address, name)
    End Sub

    Public Sub New(ByVal name As String, ByVal v As bytesInt16)
        MyBase.New(name, v)
    End Sub

    Public Sub New(ByVal name As String)
        MyBase.New(name)
    End Sub
End Class

Public Class sharedMemoryInt32
    Inherits sharedMemory(Of Int32, bytesInt32)

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String, ByVal v As bytesInt32)
        MyBase.New(host, port, name, v)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String, ByVal v As Int32)
        MyBase.New(host, port, name, v)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String)
        MyBase.New(host, port, name)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String, ByVal v As bytesInt32)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String, ByVal v As Int32)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String)
        MyBase.New(address, name)
    End Sub

    Public Sub New(ByVal address As String, ByVal name As String, ByVal v As bytesInt32)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As String, ByVal name As String)
        MyBase.New(address, name)
    End Sub

    Public Sub New(ByVal name As String, ByVal v As bytesInt32)
        MyBase.New(name, v)
    End Sub

    Public Sub New(ByVal name As String)
        MyBase.New(name)
    End Sub
End Class

Public Class sharedMemoryInt64
    Inherits sharedMemory(Of Int64, bytesInt64)

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String, ByVal v As bytesInt64)
        MyBase.New(host, port, name, v)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String, ByVal v As Int64)
        MyBase.New(host, port, name, v)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Int32, ByVal name As String)
        MyBase.New(host, port, name)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String, ByVal v As bytesInt64)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String, ByVal v As Int64)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As pair(Of String, Int32), ByVal name As String)
        MyBase.New(address, name)
    End Sub

    Public Sub New(ByVal address As String, ByVal name As String, ByVal v As bytesInt64)
        MyBase.New(address, name, v)
    End Sub

    Public Sub New(ByVal address As String, ByVal name As String)
        MyBase.New(address, name)
    End Sub

    Public Sub New(ByVal name As String, ByVal v As bytesInt64)
        MyBase.New(name, v)
    End Sub

    Public Sub New(ByVal name As String)
        MyBase.New(name)
    End Sub
End Class
